00100	α DISPLAY SUBR;
00300		EXTERNAL SIMPLE PROCEDURE DPYSET(INTEGER ARRAY DPYBUF);
00400		EXTERNAL SIMPLE PROCEDURE DPYOUT(INTEGER POG);
00500		EXTERNAL SIMPLE PROCEDURE AIVECT(INTEGER X,Y);
00600		EXTERNAL SIMPLE PROCEDURE AVECT(INTEGER X,Y);
00610		EXTERNAL SIMPLE PROCEDURE RIVECT(INTEGER X,Y);
00620		EXTERNAL SIMPLE PROCEDURE RVECT(INTEGER X,Y);
00700		EXTERNAL SIMPLE PROCEDURE HYDPOG(INTEGER POG);
00800		EXTERNAL SIMPLE PROCEDURE DPYSST(STRING S);
00900		EXTERNAL SIMPLE PROCEDURE DPYBRT(INTEGER X);
01000		EXTERNAL SIMPLE PROCEDURE DPYBIG(INTEGER SIZ);
01100		EXTERNAL SIMPLE PROCEDURE DPYCLR;